home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 1501_600 / DISK1524 / DISK1524.ZIP / LILSPROG.BAS < prev    next >
BASIC Source File  |  1989-06-08  |  257b  |  5 lines
  1. 1 KEY OFF:SCREEN 2:P=ATN(1)/45:A=0:B=0:C=0:D=0:E=150:F=300:G=40:H=100:CLS
  2. 2 INPUT A:INPUT B:A=A*P:B=B*P:PSET((SIN(A)+SIN(B))*E+F,(COS(A)+COS(B))*G+H)
  3. 3 K$=INKEY$:C=C+A:D=D+B:LINE -((SIN(C)+SIN(D))*E+F,(COS(C)+COS(D))*G+H)
  4. 4 IF K$="" THEN 3 ELSE GOTO 1
  5.